home *** CD-ROM | disk | FTP | other *** search
/ Scene 96 / Scene 96 International Edition (Zyklop Software) (Disc 2) (1997).iso / misc / coding / e_os208 / exampl12 / eos.pas < prev    next >
Pascal/Delphi Source File  |  1996-08-01  |  819b  |  34 lines

  1.  
  2. var
  3.    f    : text;
  4.    s    : string;
  5.  
  6. begin
  7.      if paramstr(1)='' then
  8.      begin
  9.           write ('Enter the name of reality :) eos file : ');
  10.           read(s);
  11.           assign (f,s+'.asm');
  12.      end  else assign (f,paramstr(1)+'.asm');
  13.  
  14.      rewrite (f);
  15.  
  16.      writeln (f);
  17.      writeln (f,'Locals');
  18.      writeln (f,'.386');
  19.      writeln (f,'CODE32 SEGMENT PUBLIC PARA ''CODE'' USE32');
  20.      writeln (f,'ASSUME  CS:CODE32,DS:CODE32,ES:CODE32');
  21.      writeln (f);
  22.      writeln (f,'INCLUDE ..\RESOURCE\EOS.INC');
  23.      writeln (f);
  24.      writeln (f,'Start32:');
  25.      writeln (f); writeln (f); writeln (f);
  26.      writeln (f,'    mov ax,4c00h');
  27.      writeln (f,'    int 21h');
  28.      writeln (f);
  29.      writeln (f,'CODE32 ENDS');
  30.      writeln (f);
  31.      writeln (f,'END');
  32.  
  33.      close (f);
  34. end.